IBrowse Hotlist

/* Author: Alfonso Ranieri Desription: Export to an IBrowse hotlist Template: KEY,USER/K Tipical usage: rx e2ib >file */ call addlib("rmh.library",0,-30) then exit call addlib("rxcmanager.library",0,-30) then exit if ~open("STDERR","CONSOLE:","W") then stderr="STDOUT" prg=programname("NOEXT") if ~RMH_ReadArgs("KEY,USER/K") then do call printfault(ioerr(),prg) exit end if parm.0.flag then k = "#?"parm.0.value"#?" else k = "#?" if parm.1.flag then call CMUserData(parm.1.value) patt.Name = k patt.WWW = k patt.Comment = k num = CMFind("WWW GROUPS","URL","PATT") if num=1 then call info "No url entry found" else call info "Found" num "url(s)" say '' say '' say 'IBrowse Hotlist' say '' say '

IBrowse Hotlist

' say '

"url.i.Group"
- " || url.i.Name || "" end call endG say '
' say '
' say '
This hotlist has been created using rxcmanager.
' say '' exit info: procedure expose stderr prg parse arg msg call writeln(stderr,prg":" msg) return endG: procedure expose ng do j=0 to ng-1 say "

" end ng=0 return